home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9405a.d64 / gosub x (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  209 b   |  17 lines
  1. 8 REM USR-VEKTOR
  2. 9 :
  3. 10 POKE785,163:POKE786,168
  4. 11 :
  5. 18 REM GOSUB GS
  6. 19 :
  7. 20 GS=40+INT(RND(0)*3)*10
  8. 30 GOSUB100:GOTO20
  9. 39 :
  10. 40 PRINT"40  ";:RETURN
  11. 50 PRINT"50  ";:RETURN
  12. 60 PRINT"60  ";:RETURN
  13. 97 :
  14. 98 REM GOTO GS
  15. 99 :
  16. 100 SYS47083(GS),USR(0)
  17.